Unit cabakiye;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, Wwdbigrd, Wwdbgrid, StdCtrls, siComp;

Type
  TfCaBakiye = Class(TForm)
    wwDBGrid1: TwwDBGrid;
    Button1: TButton;
    Procedure wwDBGrid1UpdateFooter(Sender: TObject);
    Procedure Button1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  fCaBakiye: TfCaBakiye;

Implementation
Uses data, ana1;
{$R *.DFM}

Procedure TfCaBakiye.wwDBGrid1UpdateFooter(Sender: TObject);
Begin
  //wwDBGrid1.ColumnByName('Bakiye').FooterValue:='Toplam 0'
  //      FloatToStrF(SumQuerySumOfBalanceDue.asFloat, ffCurrency, 10, 2);
End;

Procedure TfCaBakiye.Button1Click(Sender: TObject);
Begin
  close;
End;

End.